home *** CD-ROM | disk | FTP | other *** search
/ PC Gamer (Italian) 42 / PC Gamer IT CD 42 1-2.iso / ELINK / CLARISHP / _SETUP.1 / HOMEPAGE.exe / 1009 / 151 < prev    next >
Encoding:
Text File  |  1997-02-20  |  12.5 KB  |  468 lines
  1. // -----
  2. // VDL151.txt
  3. // Copyright 1996 Claris
  4. // -----
  5.  
  6.  
  7. //Pict Editor
  8.  
  9.  
  10. /************************** LOCALIZED STRING CONSTANTS BEGIN **************************************/
  11. /************************** LOCALIZED STRING CONSTANTS BEGIN **************************************/
  12. /************************** LOCALIZED STRING CONSTANTS BEGIN **************************************/
  13.  
  14. //This section contains all localizable string constants for this VDL program. Be sure to 
  15. //include the backslash character at the end of each line of a multi-line string, except for the last line.
  16. //You may also flatten multiline constants into a single line, if you prefer
  17.  
  18.  
  19. #define kLit1 "Copy this image (drag to insert a copy)"
  20. #define kLit2 "Selection Tool"
  21. #define kLit3 "Rectangular Link Tool"
  22. #define kLit4 "Circular Link Tool"
  23. #define kLit5 "Transparency Tool"
  24. #define kLit6 "Remove Transparency"
  25. #define kLit7 "Link Editor"
  26. #define kLit8 "Move Link To Front"
  27. #define kLit9 "Move Link To Back"
  28. #define kLit10 "Move Link Forward"
  29. #define kLit11 "Move Link Backward"
  30. #define kLit12 "Interlace"
  31. #define kLit13 "Don't Interlace"
  32. #define kLit14 "Default URL:"
  33. #define kLit15 "URL when not in a link"
  34. #define kLit16 "Links:"
  35. #define kLit17 "Show/hide link URLs"
  36. #define kLit18 "Show URLs"
  37. #define kLit19 "Hide URLs"
  38. #define kLit20 "Zoom:"
  39. #define kLit21 "Image zoom"
  40. #define kLit22 "6%"
  41. #define kLit23 "12%"
  42. #define kLit24 "25%"
  43. #define kLit25 "50%"
  44. #define kLit26 "100%"
  45. #define kLit27 "200%"
  46. #define kLit28 "400%"
  47. #define kLit29 "800%"
  48. #define kLit30 "1600%"
  49.  
  50. //Note: the file name will probably not change, but the name of the "Help" folder
  51. //probably will. Note that the translated name MUST be 8 chars or less.
  52. #define kHelpURL "Help/ImageMap.htm"
  53. #define kHelpTitle "&Help"
  54.  
  55. //Localized Fonts
  56.  
  57. #if Platform_Mac
  58.     #define kStaticTextFont         Font = {Geneva, 10, {Plain}}
  59.     #define kBoldStaticFont         Font = {Geneva, 10, {Bold}}
  60.     #define kHelpFont                 Font = {Geneva, 9, {Italic}}
  61. #else
  62.     #define kStaticTextFont         Font = SystemFont
  63.     #define kBoldStaticFont         Font =  SystemFont
  64. #endif
  65.  
  66.  
  67. /************************** LOCALIZED STRING CONSTANTS END **************************************/
  68. /************************** LOCALIZED STRING CONSTANTS END **************************************/
  69. /************************** LOCALIZED STRING CONSTANTS END **************************************/
  70.  
  71.  
  72.  
  73. /************************** LOCALIZED NUMERICAL CONSTANTS BEGIN **************************************/
  74. /************************** LOCALIZED NUMERICAL CONSTANTS BEGIN **************************************/
  75. /************************** LOCALIZED NUMERICAL CONSTANTS BEGIN **************************************/
  76.  
  77. //This section contains integer constants that are used to format this VDL program.
  78. //These are localizable - they only need to be changed if the localized strings 
  79. //are sufficiently longer than the US strings. Localize the strings first, then the constants.
  80.  
  81. #if Platform_Win
  82. //Width of the "Links" popup
  83. #define kLinksPopupWidth     165
  84.  
  85. //Width of the "Zoom" popup
  86. #define kZoomPopupWidth        120
  87. #endif
  88.  
  89.  
  90. /************************** LOCALIZED NUMERICAL CONSTANTS END **************************************/
  91. /************************** LOCALIZED NUMERICAL CONSTANTS END **************************************/
  92. /************************** LOCALIZED NUMERICAL CONSTANTS END **************************************/
  93.  
  94. //No further localizable data past this point
  95.  
  96. /************************** END LOCALIZABLE DATA ***************************************************/
  97. /************************** END LOCALIZABLE DATA ***************************************************/
  98. /************************** END LOCALIZABLE DATA ***************************************************/
  99.  
  100. #define kStandardSpace 9
  101.  
  102. #define EH EnabledHelpString =
  103.  
  104. #if Platform_Mac
  105.     #define ToolSep GenericView("ToolSepView");
  106. #else
  107.     #define ToolSep 
  108. #endif
  109.  
  110. #if Platform_Mac
  111. #define DialogBack     BackColor = {57015, 57015, 57015}
  112. #else
  113. #define DialogBack     BackColor = Dialog
  114. #endif
  115.  
  116.  
  117. Define(HotspotCreationTools)
  118.     HList(FullyCovered,DialogBack)
  119.         {
  120.         Spacer(Width = kStandardSpace, Height = UseParent);
  121.         ToolSep
  122.         PictRadioButton(3111, 10, EH kLit2) //Arrow
  123.             {
  124.             On(Draw, 'cicn', 10007);
  125.             Off(Draw, 'cicn', 10006);
  126.             DisabledOn(Draw, 'cicn', 10008);
  127.             DisabledOff(Draw, 'cicn', 10008);
  128.             TrackingOn(Draw, 'cicn', 10007);
  129.             TrackingOff(Draw, 'cicn', 10007);
  130.             };
  131.         ToolSep
  132.         PictRadioButton(3111, 0, EH kLit3) //Rect
  133.             {
  134.             On(Draw, 'cicn', 10001);
  135.             Off(Draw, 'cicn', 10000);
  136.             DisabledOn(Draw, 'cicn', 10002);
  137.             DisabledOff(Draw, 'cicn', 10002);
  138.             TrackingOn(Draw, 'cicn', 10001);
  139.             TrackingOff(Draw, 'cicn', 10001);
  140.             };
  141.         ToolSep
  142.         PictRadioButton(3111, 1, EH kLit4) //circle
  143.             {
  144.             On(Draw, 'cicn', 10004);
  145.             Off(Draw, 'cicn', 10003);
  146.             DisabledOn(Draw, 'cicn', 10005);
  147.             DisabledOff(Draw, 'cicn', 10005);
  148.             TrackingOn(Draw, 'cicn', 10004);
  149.             TrackingOff(Draw, 'cicn', 10004);
  150.             };
  151.         }
  152.         
  153. Define(HotspotEditingTools)
  154.     HList(FullyCovered,DialogBack)
  155.         {
  156.         Spacer(Width = kStandardSpace, Height = UseParent);
  157.         ToolSep
  158.         PictPushButton(3109, "None", EH kLit7) // "Insert/Edit Link"
  159.             {
  160.             Enabled (Draw, 'cicn', 13506);
  161.             Disabled(Draw, 'cicn', 13508); 
  162.             Tracking(Draw, 'cicn', 13507);
  163.             };
  164.         ToolSep
  165.         
  166.         Spacer(Height = UseParent, Width = kStandardSpace);
  167.         ToolSep
  168.         PictPushButton(1212, "None", EH kLit8) // ccMoveToFront
  169.             {
  170.             Enabled (Draw, 'cicn', 10070);
  171.             Disabled(Draw, 'cicn', 10072); 
  172.             Tracking(Draw, 'cicn', 10071);
  173.             };
  174.         ToolSep
  175.         PictPushButton(1213, "None", EH kLit9) // ccMoveToBack
  176.             {
  177.             Enabled (Draw, 'cicn', 10080);
  178.             Disabled(Draw, 'cicn', 10082); 
  179.             Tracking(Draw, 'cicn', 10081);
  180.             };
  181.         ToolSep
  182.         PictPushButton(1214, "None", EH kLit10) // ccMoveForward
  183.             {
  184.             Enabled (Draw, 'cicn', 10090);
  185.             Disabled(Draw, 'cicn', 10092); 
  186.             Tracking(Draw, 'cicn', 10091);
  187.             };
  188.         ToolSep
  189.         PictPushButton(1215, "None", EH kLit11) // ccMoveBackward
  190.             {
  191.             Enabled (Draw, 'cicn', 10100);
  192.             Disabled(Draw, 'cicn', 10102); 
  193.             Tracking(Draw, 'cicn', 10101);
  194.             };
  195.         ToolSep
  196.         }
  197.         
  198. Define(UpperToolbar)
  199.     Margin(6,7,0,5,Width = UseParent, DialogBack)
  200.         VList(Width = UseParent, DialogBack)
  201.             {
  202.             HList(Width = UseParent,FullyCovered)
  203.                 {
  204.                 Switch(imageType)
  205.                     {
  206.                     case 999: 
  207.                         Spacer(Height = 0, Width = 0);
  208.                     
  209.                     default:
  210.                         VList(Height = UseParent)
  211.                             {
  212.                             Margin(1,0,0,0)
  213.                                 PictPushButton( 3122, "None", Draggable,
  214.                                                          EH kLit1 )
  215.                                     {
  216.                                     On(Draw, 'cicn', 1006);
  217.                                     Disabled(Draw, 'cicn', 1006);
  218.                                     Tracking(Draw, 'cicn', 1006);
  219.                                     };
  220.                             Spacer(Height = UseParent, Width = UseParent);
  221.                             }
  222.                     } //Switch
  223.                 
  224.  
  225.                 Switch(GIFSettingsOnly)
  226.                     {
  227.                     case 1: 
  228.                         Spacer(Height = UseParent, Width = kStandardSpace);
  229.                             
  230.                     default:
  231.                         Call(HotspotCreationTools);
  232.                     }
  233.                 
  234.                 ToolSep
  235.                 
  236.                 Switch(imageType)
  237.                     {
  238.                     case 0:  /* GIF */
  239.                         HList()
  240.                             {
  241.                             
  242.                             Switch(GIFSettingsOnly)
  243.                                 {
  244.                                 case 1: 
  245.                                     Spacer(Height = 0, Width = 0);
  246.                                     
  247.                                 default:    
  248.                                     HList()
  249.                                         {
  250.                                         PictRadioButton(3111, 11, EH kLit5) //Eyedropper
  251.                                             {
  252.                                             On(Draw, 'cicn', 10010);
  253.                                             Off(Draw, 'cicn', 10009);
  254.                                             DisabledOn(Draw, 'cicn', 10011);
  255.                                             DisabledOff(Draw, 'cicn', 10011);
  256.                                             TrackingOn(Draw, 'cicn', 10010);
  257.                                             TrackingOff(Draw, 'cicn', 10010);
  258.                                             };
  259.                                         ToolSep
  260.                                         Spacer(Height = UseParent, Width = kStandardSpace);
  261.                                         ToolSep
  262.                                         }
  263.                                 }
  264.                                 
  265.                             PictPushButton(3320, "None", EH kLit6) // ccMakeOpaqueImage
  266.                                 {
  267.                                 Enabled (Draw, 'cicn', 10050);
  268.                                 Disabled(Draw, 'cicn', 10052); 
  269.                                 Tracking(Draw, 'cicn', 10051);
  270.                                 };
  271.                             ToolSep
  272.                             }
  273.                     
  274.                     default:
  275.                         Spacer(Height = 0, Width = 0);
  276.                     }
  277.                     
  278.                 Switch(GIFSettingsOnly)
  279.                     {
  280.                     case 1: 
  281.                         Spacer(Height = 0, Width = 0);
  282.                         
  283.                     default:
  284.                         Call(HotspotEditingTools);
  285.                     }
  286.                 
  287.                 Spacer(Height = UseParent, Width = kStandardSpace);
  288.                 
  289.                 Switch(imageType)
  290.                     {
  291.                     case 0:  /* GIF */
  292.                         HList()
  293.                             {
  294.                             ToolSep
  295.                             PictRadioButton( interlace, 1, // ccPictInterlaceCmd
  296.                                                   EH kLit12 )
  297.                                 {
  298.                                 On         (Draw, 'cicn', 10110);
  299.                                 Off        (Draw, 'cicn', 10111);
  300.                                 DisabledOn (Draw, 'cicn', 10112);
  301.                                 DisabledOff(Draw, 'cicn', 10112);
  302.                                 TrackingOn (Draw, 'cicn', 10110);
  303.                                 TrackingOff(Draw, 'cicn', 10110);
  304.                                 };
  305.                             ToolSep
  306.                             PictRadioButton( interlace, 0, // ccPictInterlaceCmd
  307.                                                   EH kLit13 )
  308.                                 {
  309.                                 On         (Draw, 'cicn', 10120);
  310.                                 Off        (Draw, 'cicn', 10121);
  311.                                 DisabledOn (Draw, 'cicn', 10122);
  312.                                 DisabledOff(Draw, 'cicn', 10122);
  313.                                 TrackingOn (Draw, 'cicn', 10120);
  314.                                 TrackingOff(Draw, 'cicn', 10120);
  315.                                 };
  316.                             ToolSep
  317.                             Spacer(Width = kStandardSpace, Height = UseParent);
  318.                             }
  319.                     
  320.                     default:
  321.                         Spacer(Height = 0, Width = 0);
  322.                     }
  323.  
  324.                     
  325.                 Spacer(Width = UseParent, Height = UseParent);
  326.                 } // HList (first row)
  327.             
  328.             #if Platform_Mac
  329.                 Margin(0,2,0,0)
  330.                 HelpView(Width = UseParent, Alignment = Center, Height = 12, kHelpFont);
  331.             #endif
  332.         
  333.             } // VList
  334.             
  335. Define(URLEntry)
  336.     HList(DialogBack, Width = UseParent)
  337.         {
  338.         Margin(4,3,6,0)
  339.             StaticText(kLit14, kBoldStaticFont);
  340.         
  341.         EditText( defaultURL, FilterProc = "SetImageDefaultURL",
  342.                       Width = 211, DropOnReturn, NoSmartQuotes,
  343.                       NoSmartEdits,
  344.                       BackColor = {65535, 65535, 65535},
  345.                       EH kLit15 );
  346.                       
  347.         Margin(4, 0, 0, 0)          
  348.             GenericView("ImageLinkShortcut");
  349.         } // HList (second row)
  350.     
  351.             
  352.             
  353. Define(URLToolbar)
  354.     HList(DialogBack, Width = UseParent)
  355.         {
  356.         Spacer(Width=6, Height=0);
  357.         #if Platform_Mac
  358.             Margin(0,1,4,0)
  359.                 StaticText( kLit16, Alignment = Right,
  360.                                   kBoldStaticFont);
  361.             IntegerPopup( "", 0, 3123, // ccShowURLsCmd
  362.                                  kStaticTextFont,
  363.                                  EH kLit17, DontBind )
  364.         #else
  365.             IntegerPopup( kLit16, Default, 3123, Width = kLinksPopupWidth, // ccShowURLsCmd
  366.                                  EH kLit17, DontBind )
  367.         #endif
  368.             {
  369.             IntItem(kLit18,    1);
  370.             IntItem(kLit19, 0);
  371.             };
  372.         Spacer(Width = 20, Height = 0);
  373.         
  374.         #if Platform_Mac
  375.             Margin(0,1,4,0)
  376.                 StaticText( kLit20, Alignment = Right,
  377.                                   kBoldStaticFont);
  378.             IntegerPopup( "", 0, 3121, // ccZoomToCmd
  379.                                  kStaticTextFont,
  380.                                  EH kLit21, DontBind )
  381.         #else
  382.             IntegerPopup( kLit20, Default, 3121, Width = kZoomPopupWidth, // ccZoomToCmd
  383.                                  EH kLit21, DontBind )
  384.         #endif
  385.             {
  386.             IntItem(kLit22, 5);
  387.             IntItem(kLit23, 10);
  388.             IntItem(kLit24, 25);
  389.             IntItem(kLit25, 50);
  390.             IntItem(kLit26, 100);
  391.             IntItem(kLit27, 200);
  392.             
  393.             #if Platform_Mac
  394.             IntItem(kLit28, 400);
  395.             IntItem(kLit29, 800);
  396.             IntItem(kLit30, 1600);
  397.             #endif
  398.             };
  399.         
  400.         } // HList (URLToolbar)
  401.  
  402.     
  403.     
  404.     
  405. VList(Width = UseParent, Height = UseParent, DialogBack)
  406.     {
  407.     Call(UpperToolbar);
  408.     Switch(GIFSettingsOnly)
  409.         {
  410.         case 1: 
  411.             Spacer(Height = 0, Width = 0);
  412.             
  413.         default:
  414.             Call(URLEntry);
  415.         }
  416.     
  417.     Spacer(Height = 5, Width = UseParent);
  418.     
  419.     #if Platform_Win
  420.     Spacer(Height = 1, Width = UseParent, BackColor = DkGray);
  421.     #endif
  422.     
  423.     Spacer(Height = 1, Width = UseParent, BackColor = Black);
  424.     
  425.     Switch(GIFSettingsOnly)
  426.         {
  427.         case 1:
  428.             GenericView("PictEditorViewProc", DisableHotspots);
  429.     
  430.         default: 
  431.             GenericView("PictEditorViewProc");
  432.         }
  433.         
  434.     //Spacer(Height = UseParent, Width = UseParent, BackColor = {65535, 0,0});
  435.     
  436.     #if Platform_Win
  437.     Spacer(Height = 1, Width = UseParent, BackColor = Gray);
  438.     Spacer(Height = 1, Width = UseParent, BackColor = White);
  439.     Spacer(Height = 1, Width = UseParent, BackColor = DkGray);
  440.     #else
  441.     Spacer(Height = 1, Width = UseParent, BackColor = Black);
  442.     #endif
  443.     
  444.     Spacer(Height = 4, Width = UseParent);
  445.     Call(URLToolbar);
  446.     Spacer(Height = 4, Width = UseParent);
  447.     
  448.     
  449.     #ifdef TryMe
  450.     
  451.         // This is just used during testing.
  452.         Spacer(Height = 10);
  453.         StaticText("Debugging Menu:");
  454.         Spacer(Height = 10);
  455.         IntegerPopup("Image Type:", Default, imageType, Width = 150, NoCombo, kPopupFont)
  456.             {
  457.             IntItem("GIF", 0);
  458.             IntItem("JPEG",1);
  459.             IntItem("QT Movie",2);
  460.             IntItem("Unknown", 3);
  461.             IntItem("Client Side Map", 999);
  462.             };
  463.             
  464.         CheckBox("GIFSettingsOnly", GIFSettingsOnly);
  465.     #endif
  466.     }
  467.  
  468.